home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Educational Software Cooperative 4
/
Educational Software Cooperative 4.iso
/
midilang
/
scale.mpl
< prev
next >
Wrap
Text File
|
1996-02-06
|
822b
|
55 lines
-19642
#
#
#
# scale.mpl
#
# Harmony Scale based on your melody
#
# Author ID Date
# ------------ ----------- ---------
# Serge Sibony 100417,2633 09/06/95
#
#
# This file is a mpl effect definition used by MidiLang
# MidiLang can be found at the MidiForum, in the
# Windows sound media library.
#
#
#
# This effect will play the scale of your melody
#
#
#
label delharm
oldharm 1
end
label main
v== 10 0
initharm 1
calcharm 1
v= 10 2
Label loop
time+= 240
getharm 1 10 3
v+= 3 48
note=v 3
outmidi
v== 10 8
goto end
v+= 10 1
goto loop
label end
end
keydef c c# delharm init_harmony
Descript This effect plays the current scale
Descript based on the harmony of your melody